00100	. DEVICE XGP    
00200	.spacing 20*5 mills;
00300	.EVERY HEADING(,{PAGE},)
00400	.AREA TEXT LINES 4 TO 40
00500	.FONT 1 "MBIG[HHA,LCS]"
00600	.font 2 "BMETI[HHA,LCS]"
00700	.font 4 "BMUS[HHA,LCS]"
00800	.font 6 "MBIG[HHA,LCS]"
00900	.!XGPLFTMAR←400
01000	.PORTION MAIN;
01100	.PLACE TEXT;
01200	.PAGE FRAME 138 WIDE 106 HIGH;
01300	.COMPACT
01400	.<< Put in a footnote. >>
01500	.
01600	.COUNT FOOTNOTE INLINE FROM 1 TO 999 IN PAGE PRINTING ⊂"*****"[1 TO FOOTNOTE]⊃
01700	.<<	(IF THISDEVICE = "XGP" THEN "%51%*" ELSE "[1]");>>
01800	.
01900	.FOOTSEP ← "__________";
02000	.AT "$$" ENTRY "$"
02100	.	⊂
02200	.	NEXT FOOTNOTE;
02300	.	FOOTNOTE!;
02400	.	SEND FOOT
02500	.		⊂
02600	.		BEGIN "NEXT FOOTNOTE"
02700	.		SELECT 1;
02800	.		SINGLE SPACE
02900	.		SPACING 0 MILLS
03000	.		INDENT 0,0,0;
03100	.		(FOOTNOTE! & " ");
03200	ENTRY
03300	.		END "NEXT FOOTNOTE";
03400	.		⊃;
03500	.	⊃;
03600	.
03700	.TURN ON "%↓_↑↓[&]","α"
03800	.at "!!" txt ";"	⊂
03900	.("↑[%3"&"txt"[1]&"]&↓["&"txt"[2]&"]%*");
04000	.COMMENT ("txt"[1]&"↑[%3"&"txt"[2]&"]&↓["&"txt"[3]&"]%*");
04100	.  ⊃
     

00100	.PAGE←63
00200	.NEXT PAGE
00300	.begin verbatim
00400	Example 66. Mozart, Sonata in D, K.576, 2nd movement.
00500	.end
00600	.CENTER
00700	%6⊂⊗⊃L[α%0.00,α%-14.80](17,22):N66X.PLT[C5,LCS]⊂⊗⊃%1